# Title     : TODO
# Objective : TODO
# Created by: yz
# Created on: 2018/3/1

library(optparse)
library(magrittr)
library(tidyverse)

option_list <- list(
make_option("--base", default = "metabo_base.R", type = "character", help = "metabo base R file")
)
opt <- parse_args(OptionParser(option_list = option_list))
source(opt$base)

resultFile <- "Pathway_Result.csv"

if(!file.exists(resultFile)){
    quit(status = 0)
}

load("kegg_enrich.RData")

df<-read_csv(resultFile)
if (nrow(df)==0) {
    quit(status = 0)
}

mSet <- PlotPathSummaryWithoutLabel(mSet, imgName = "Pathway_Bubbleplot_without_label.pdf", width = 7, height = 5)





